home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / database / qddb-1.42 < prev    next >
Text File  |  1996-11-16  |  9KB  |  306 lines
  1.  
  2. Here's a patch to the newly released Qddb 1.42.6 that
  3. fixes the following problems:
  4.  
  5.     1. Expert search date ranges were giving an error message
  6.     2. When the expert search window was displayed, there was
  7.         no busy cursor.
  8.  
  9. To apply:
  10.     1. copy this file to the qddb-1.42.6 directory.
  11.     2. patch -p0 < qddb-1.42.6p1.patch
  12.     3. remake and install
  13.  
  14. --------------- cut here -----------------------
  15. *** ../qddb-dists/qddb-1.42.6//ChangeLog    Mon Nov 27 10:22:24 1995
  16. --- .//ChangeLog    Mon Nov 27 20:02:19 1995
  17. ***************
  18. *** 1,5 ****
  19. --- 1,13 ----
  20.   Mon Nov 27 10:21:33 1995  Eric H. Herrin II  <eric@herrin.msext.uky.edu>
  21.   
  22. +     * Lib/LibQddb/Utils.c (Qddb_DateStringToTime): Was writing
  23. +     unsigned; properly handle negative times.
  24. + 
  25. +     * TkUtils/fx-tk4/fx_expert.tcl: Fixed a bug in range searching.
  26. +     Explicitly check for non-existent args.
  27. + 
  28. +     * Qddb 1.42.6 released.
  29. + 
  30.       * Testing under SunOS, HP/UX, Linux, BSD/OS 2.0.1, BSD/386 1.1
  31.       Misc changes to force clean compile.
  32.   
  33. ***************
  34. *** 14,20 ****
  35.       * TkUtils/fx-tk4/fx_expert.tcl: Lots of minor fixes; few
  36.       new major features.   Placed main search building box
  37.       in a canvas so it will scroll.   Added ability to resize
  38. !     the window horizontally.   Added comment field and current
  39.       settings frame.
  40.   
  41.       * TkUtils/fx-tk4/nxqddb.tcl (Fx_Entry): Fixed a bug in nxqddb 
  42. --- 22,28 ----
  43.       * TkUtils/fx-tk4/fx_expert.tcl: Lots of minor fixes; few
  44.       new major features.   Placed main search building box
  45.       in a canvas so it will scroll.   Added ability to resize
  46. !     the window vertically.   Added comment field and current
  47.       settings frame.
  48.   
  49.       * TkUtils/fx-tk4/nxqddb.tcl (Fx_Entry): Fixed a bug in nxqddb 
  50. *** ../qddb-dists/qddb-1.42.6//Lib/LibQddb/Utils.c    Wed Nov 22 17:33:37 1995
  51. --- .//Lib/LibQddb/Utils.c    Mon Nov 27 20:05:41 1995
  52. ***************
  53. *** 931,939 ****
  54.       }
  55.       }
  56.       if (sizeof(time_t) == sizeof(int))
  57. !     sprintf(buf, "%u", (int)clockVal);
  58.       else if (sizeof(time_t) == sizeof(long))
  59. !     sprintf(buf, "%lu", (long)clockVal);
  60.       else
  61.       PANIC("sizeof(time_t) != sizeof(int) or sizeof(long)");
  62.       retval = Malloc(sizeof(char)*(strlen(buf)+1));
  63. --- 931,939 ----
  64.       }
  65.       }
  66.       if (sizeof(time_t) == sizeof(int))
  67. !     sprintf(buf, "%d", (int)clockVal);
  68.       else if (sizeof(time_t) == sizeof(long))
  69. !     sprintf(buf, "%ld", (long)clockVal);
  70.       else
  71.       PANIC("sizeof(time_t) != sizeof(int) or sizeof(long)");
  72.       retval = Malloc(sizeof(char)*(strlen(buf)+1));
  73. *** ../qddb-dists/qddb-1.42.6//TclUtils/src/TclSearch.c    Fri Nov 24 12:02:27 1995
  74. --- .//TclUtils/src/TclSearch.c    Mon Nov 27 19:30:53 1995
  75. ***************
  76. *** 50,64 ****
  77.       } else if (argc == 5 && argv[3][0] == '-' && argv[3][1] == '\0') { 
  78.       /* no lower limit */
  79.       args->UpperStr = argv[4];
  80.       args->LowerStr = NULL;
  81.       args->LowerExists = False;
  82. -     args->UpperExists = True;
  83.       } else if (argc == 5 && argv[4][0] == '-' && argv[4][1] == '\0') {
  84.       /* no upper limit */
  85.       args->UpperStr = NULL;
  86.       args->LowerStr = argv[3];
  87.       args->LowerExists = True;
  88. -     args->UpperExists = False;
  89.       } else {
  90.       if (argc != 6 || argv[4][0] != '-' || argv[4][1] != '\0') {
  91.           if (argc <= 4) {
  92. --- 50,64 ----
  93.       } else if (argc == 5 && argv[3][0] == '-' && argv[3][1] == '\0') { 
  94.       /* no lower limit */
  95.       args->UpperStr = argv[4];
  96. +     args->UpperExists = True;
  97.       args->LowerStr = NULL;
  98.       args->LowerExists = False;
  99.       } else if (argc == 5 && argv[4][0] == '-' && argv[4][1] == '\0') {
  100.       /* no upper limit */
  101.       args->UpperStr = NULL;
  102. +     args->UpperExists = False;
  103.       args->LowerStr = argv[3];
  104.       args->LowerExists = True;
  105.       } else {
  106.       if (argc != 6 || argv[4][0] != '-' || argv[4][1] != '\0') {
  107.           if (argc <= 4) {
  108. *** ../qddb-dists/qddb-1.42.6//TkUtils/fx-tk4/fx_menu.tcl    Sun Nov 26 21:11:29 1995
  109. --- .//TkUtils/fx-tk4/fx_menu.tcl    Mon Nov 27 21:25:31 1995
  110. ***************
  111. *** 455,460 ****
  112. --- 455,463 ----
  113.       method ExpertSearchProc {} {
  114.       global fx_config $status_variable fx_blt
  115.   
  116. +     if {$fx_blt} {
  117. +         blt_busy hold .
  118. +     }
  119.       if {[string length $restrict] == 0} {
  120.           set res {}
  121.       } else {
  122. ***************
  123. *** 466,474 ****
  124.           set l [Fx:ExpertSearchWindow .expert_search $schema $res ""]
  125.       }
  126.       if {[lindex $l 0] == 1} {
  127. -         if {$fx_blt} {
  128. -         blt_busy hold .
  129. -         }
  130.           ::set $status_variable "Searching..."
  131.           update idletasks
  132.           update
  133. --- 469,474 ----
  134. ***************
  135. *** 485,490 ****
  136. --- 485,494 ----
  137.           update idletasks
  138.           update
  139.           SearchProc [lindex $l 1] [Fx:UniqueList [lindex $l 0]]
  140. +     } else {
  141. +         if {$fx_blt} {
  142. +         blt_busy forget .
  143. +         }
  144.       }
  145.       }
  146.       method DeleteProc {} {
  147. *** ../qddb-dists/qddb-1.42.6//TkUtils/fx-tk4/fx_expert.tcl    Sun Nov 26 23:13:23 1995
  148. --- .//TkUtils/fx-tk4/fx_expert.tcl    Mon Nov 27 20:56:21 1995
  149. ***************
  150. *** 762,767 ****
  151. --- 762,768 ----
  152.       catch "focus $oldFocus"
  153.       catch "grab $oldGrab"
  154.       destroy $w
  155. +     update idletasks; update
  156.       return $retval
  157.   }
  158.   
  159. ***************
  160. *** 800,805 ****
  161. --- 801,807 ----
  162.   }
  163.   
  164.   proc Fx:ExpertSearchParseNode {s node} {
  165. +     update idletasks; update
  166.       set opt [lindex $node 2]
  167.       set attr [lindex $node 3]
  168.       set lhs [lindex $node 4]
  169. ***************
  170. *** 827,844 ****
  171.       switch $opt {
  172.           nr -
  173.           wr {
  174.           if {[string compare $opt nr] == 0} {
  175. !             if {[string length $lhs] > 0 && [catch "expr double($lhs)" err] != 0} {
  176.               error "Invalid number: $lhs"
  177.               }
  178. !             if {[string length $rhs] > 0 && [catch "expr double($rhs)" err] != 0} {
  179.               error "Invalid number: $rhs"
  180.               }
  181.           }
  182.           if {$anynode} {
  183. !             return [eval qddb_search $s $opt $lhs - $rhs]
  184.           } else {
  185. !             return [eval qddb_search $s -prunebyattr $attr $opt $lhs - $rhs]
  186.           }
  187.           }
  188.           r -
  189. --- 829,864 ----
  190.       switch $opt {
  191.           nr -
  192.           wr {
  193. +         set llen [string length $lhs]
  194. +         set rlen [string length $rhs]
  195.           if {[string compare $opt nr] == 0} {
  196. !             if {$llen > 0 && [catch "expr double($lhs)" err] != 0} {
  197.               error "Invalid number: $lhs"
  198.               }
  199. !             if {$rlen > 0 && [catch "expr double($rhs)" err] != 0} {
  200.               error "Invalid number: $rhs"
  201.               }
  202.           }
  203.           if {$anynode} {
  204. !             if {$llen > 0 && $rlen > 0} {
  205. !             return [qddb_search $s $opt $lhs - $rhs]
  206. !             } elseif {$llen > 0 && $rlen == 0} {
  207. !             return [qddb_search $s $opt $lhs -]
  208. !             } elseif {$llen == 0 && $rlen > 0} {
  209. !             return [qddb_search $s $opt - $rhs]
  210. !             } else {
  211. !             return [qddb_search $s $opt -]
  212. !             }
  213.           } else {
  214. !             if {$llen > 0 && $rlen > 0} {
  215. !             return [qddb_search $s -prunebyattr $attr $opt $lhs - $rhs]
  216. !             } elseif {$llen > 0 && $rlen == 0} {
  217. !             return [qddb_search $s -prunebyattr $attr $opt $lhs -]
  218. !             } elseif {$llen == 0 && $rlen > 0} {
  219. !             return [qddb_search $s -prunebyattr $attr $opt - $rhs]
  220. !             } else {
  221. !             return [qddb_search $s -prunebyattr $attr $opt -]
  222. !             }
  223.           }
  224.           }
  225.           r -
  226. ***************
  227. *** 860,873 ****
  228.           if {[string compare $opt d] == 0} {
  229.               set rhs $lhs
  230.           }
  231. !         if {[string length $lhs] > 0} {
  232.               if {[qddb_util isdate "$lhs 12:00AM"]} {
  233.               set lhs "$lhs 12:00AM"
  234.               } elseif {![qddb_util isdate $lhs]} {
  235.               error "Invalid date: $lhs"
  236.               }
  237.           }
  238. !         if {[string length $rhs] > 0} {
  239.               if {[qddb_util isdate "$rhs 11:59PM"]} {
  240.               set rhs "$rhs 11:59PM"
  241.               } elseif {![qddb_util isdate $rhs]} {
  242. --- 880,895 ----
  243.           if {[string compare $opt d] == 0} {
  244.               set rhs $lhs
  245.           }
  246. !         set llen [string length $lhs]
  247. !         if {$llen > 0} {
  248.               if {[qddb_util isdate "$lhs 12:00AM"]} {
  249.               set lhs "$lhs 12:00AM"
  250.               } elseif {![qddb_util isdate $lhs]} {
  251.               error "Invalid date: $lhs"
  252.               }
  253.           }
  254. !         set rlen [string length $rhs]
  255. !         if {$rlen > 0} {
  256.               if {[qddb_util isdate "$rhs 11:59PM"]} {
  257.               set rhs "$rhs 11:59PM"
  258.               } elseif {![qddb_util isdate $rhs]} {
  259. ***************
  260. *** 875,883 ****
  261.               }
  262.           }
  263.           if {$anynode} {
  264. !             return [eval qddb_search $s dr $lhs - $rhs]
  265.           } else {
  266. !             return [eval qddb_search $s -prunebyattr $attr dr $lhs - $rhs]
  267.           }
  268.           }
  269.           default {
  270. --- 897,921 ----
  271.               }
  272.           }
  273.           if {$anynode} {
  274. !             if {$llen > 0 && $rlen > 0} {
  275. !             return [qddb_search $s dr $lhs - $rhs]
  276. !             } elseif {$llen > 0 && $rlen == 0} {
  277. !             return [qddb_search $s dr $lhs -]
  278. !             } elseif {$llen == 0 && $rlen > 0} {
  279. !             return [qddb_search $s dr - $rhs]
  280. !             } else {
  281. !             return [qddb_search $s dr -]
  282. !             }
  283.           } else {
  284. !             if {$llen > 0 && $rlen > 0} {
  285. !             return [qddb_search $s -prunebyattr $attr dr $lhs - $rhs]
  286. !             } elseif {$llen > 0 && $rlen == 0} {
  287. !             return [qddb_search $s -prunebyattr $attr dr $lhs -]
  288. !             } elseif {$llen == 0 && $rlen > 0} {
  289. !             return [qddb_search $s -prunebyattr $attr dr - $rhs]
  290. !             } else {
  291. !             return [qddb_search $s -prunebyattr $attr dr -]
  292. !             }
  293.           }
  294.           }
  295.           default {
  296. ***************
  297. *** 890,895 ****
  298. --- 928,934 ----
  299.   proc Fx:ExpertSearchParser {s nodes} {
  300.       set search_attrs {}
  301.       foreach i $nodes {
  302. +     update idletasks; update
  303.       if {[string compare [lindex $i 0] t] != 0} {
  304.           if {[string compare [lindex $i 0] c] == 0} {continue}
  305.           if {[string compare [lindex $i 0] i] == 0} {
  306.